FOCALU -- DECtape FOCAL-69 
Differences between FOCALJ and 8K FOCAL-69: 


1. if started on a 4K PDP-8, it will type an error message 
and return to the System. Do not attempt to run FOCALJ on a 
uK machine as it will destroy itself, | 

; F| 

| 7 | | 
2. The Teletype output buffer has heen increased from 16 
characters to 128. See the source or listing of the 
modifications for information on setting the buffer length 
to 64 or back to 16 characters, 


3. The equal sign (=) has been removed from the number 
typeout to improve the looks of tabular typeouts. [Et may be 
put back as part of a quoted string if desired, | 


uy, The * command (high speed reader) has been removed, and 
a * anywhere ona line will cause the rest of the Tine to be 
ignored. na 


Bs Tha funetion FCORM has been renleced by FPUP, which 
moves the plotter pe n up and down and advances the chart on 
the plotter. | 


6, The function FDIS has been modifted to accept one or 
two arguments (set just X or both X and Y co-ordinated). 


i= The function FADC has been modified to use the AFOI1A 
ADC/MPX and. the variable clock, and will accept one or two 
arguments (argument 1 sets the MPX channel and optional 
a 2 will cause the program to wait for the variable 
clock 


8. Core 1 allocation has been modified. The first half is 
now used as the program (text) buffer and the second half is 
used as an array-I/0 buffer. 


9. A function, FNEW, has been implemented to access the 
integers in the core 1 array-I/0O buffer. 


10, The LIBRARY command has been modified. to also 
READ/WRITE on DECtapes using the core 1 array-I/0 buffer. 


11. Error codes have been added for the added and modified 
eonmones and functions. 


12. The control-key function has been modified: 
CTRL-P causes FOCALJ to restart. 


CTRL~-C causes FOCALJ to call the DECtape Library 
System. | 


Either of these control keys will stop any DECtape 
which is in motion without completing the transfer of words 
to/from core. | 


LIBRARY COMMAND: 


This command may nave one of three forms. Two of these 
require TCO1-TU55 DECtapes (Cand the core 1 1/0 buffer) as 
presently implemented: 


LIBRARY INFO String 
LIBRARY READ Blk, Page, Nblks, Unit 
LIBRARY WRITE same as READ 


These commands may be terminated by either a semi-colon (3) 
or Carriage-~Return, The parameters are as follows: 


String An optional string of characters which will 
| be typed on the Teletype when the command is 
executed, : 
Blk DECtape block number where READ or WRITE - 
- will start. | 
Page Core 1 buffer page (128 locations each) 


where data transfer will start. May have 
a value 0 thru 15, initialized to 0. 
Nbiks Number of DECtape blocks (1 page each) 
to be transferred. May have a value l 
thru 16, initialized to 1. 
Unit DECtape unit for transfer. Inittalized 
to l. , 7 


Any of these parameters may be constants or vartables. 
Abbreviations: 


LIBRARY 
INFO 
READ 
WRITE 


SNn-r 


LIBRARY INFO: 


This command first causes the typeout in octal of the 
contents of four FOCAL pointers: CFRS (the start of the text 
buffer in core 1), BUFR (the end of the text buffer in core 
1), LASTV (the end of the variable list in core O--start of 
it is 3400) and BOTTOM (the end of the push-down list in 
core 0). The second action is to type out whatever 
characters follow the word INFO as tnstructions to the user. 


3. 


If the user wishes to save the text buffer in core 1 
Cusing the modified DECtape System when it is available), he 
should type 'L !' and carriage-return to set a typeout of 
these constants, type CTRL-C to go to the System and UPLATE 
core l on tape as follows: 


UPDATE 
NAME: User's chotce 
S.A.: 3120 (to auto-start with FOCALJ in core) 
or | 
7667 (to halt after loading) 
CORE : 10100-1xxxx (where xxxx is the second octal 
number that was typed out.) | 


LIBRARY READ/WRITE: 


The argument list for this command may contain from one 
to four arguments. The arguments are scanned from left to 
right and omitted arguments are left as previously set (by a 
previous LIBRARY READ/WRITE command or by the initial values 
shown above). If an argument is left out, the comma 
preceding it must also be left out. i 


The DECtape transfer fs done as specified by the 
parameters of the command with the program interrupt on. 
After the transfer is initialized by the command, FOCALJ may 
continue processing. Should the FOCALJ program attempt to 
access the data contained within the transfer buffer or to 
give another LIBRARY READ/WRITE command, the processor will 
wait for completion of the previous command. 


Fxamples: 


LIBRARY READ B, 8, NBLK, Il 

LIBRARY WRITE BLKNO, PG, 5 (Unit omitted.) 
LE R B,8 (Nblks and Unit omitted.) 

L WR BLK (Page, NbIks and Unit omitted.) 


FUNCTIONS: 


All functions must be used in SET commands, even when 
storing data. All can have either constants or varibales as 
agruments. 


FADC(Ca,b) - Sample MPX channel a under clock control. 
FADC( a ) - Sanpie MPX channel a. (No clock.) 


hannel number, 0 thru 11 (12 channels). 
# Q, wait for clock flag before sampling. 
= 0, wait for clock flag and then clear the 
flag before sampling. 
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~~ FDIS(x,y) - Set X and Y position on scope and plotter. 
FDIS(€ x ) - Set X position on scope and plotter (CY left _ 
‘ as previously set). 


& y are taken modulo 2**10 (-1 and 1023 are equivalent). 
0,0 ) is lower left hand corner on plotter and 

scope (-10 volts, -10 volts). ’ 
(1023,1023) is upper right hand corner (0 volts, 0 volts). 


X 
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FNEWCi,x) - Store integer part of x in location i. 
FNEWC j ) ~ Get unsigned integer from location j. 


x is stored modulo 2**12 and assumed to be unsigned, 
so care should be taken to keep the value of. 
x (which may be an expression) between 0 and 
bogs, 


i & j must be within the range 0 thru 2047, Each page 
specified by the LIBRARY command contains 128 (base 10) | | 
locations, hence i = 0 refers to the first location in page 
0 of the core 1 array-!/0O buffer, ft = 128 refers to the | 
first location In page 1, if = 258 refers to the third 
location in page 2, etc.’ See the description of the array- 
1/0 buffer layout for a table. | 


FPUP( z) - Move hp 2D-2 pen and chart: 
For z > 0 Raise pen. 
For z= 0 lower pen. , 
For z= -] Raise pen, move chart 3 inches. 
For z = -2 Lower pen, move chart 3 inches. 
For z ¢ -2 — Move chart 3 inches. 


. The last three options require that the Moseley 17005A 
chart advance be turned on and that rolled chart paper be 
used, | 


FXC ... ) ~ =\User function, can be added to do other 1/0 
functions or complex calculations which FOCAL would — 
otherwise do slowly. 


ARRAY-1/0 BUFFER LAYOUT: 


The following table shows the,layout of the core 1 
array-I/0 buffer. This area in core 1 extends from 14000 - 
17777 (octal) and is used both for data storage (a 2048 
location integer array accessed throusrh FNEW) and for 
DECtape read-write transfer (16 DECtape blocks or core 
pages, as set up by the LIBRARY READ/WRITE commands). 


FNEW will allow access to this array when one of the 
following conditions is true: 


1) The location specified is outside the pages 
specified by the last LIBRARY READ/WRITE command. 


Or 


2) .The location ts within the pares specified AND no 
DECtape is presently in motion under program control. 


These conditions are necessary because the DECtape 
routines used by the LIBRARY commands use the procram 
interrunt to allow cencurrent program execution and DECtape 
1/0, and it is thus possible to reference a location within 
the area of core to/from which a DECtape transfer is taking 
place while the transfer is taking place. This could have 
disastrous results. This setup, however, does allow a 
user's FOCALJ program to do double buffering of DECtape [/0 
if that is desired, 


A LIBRARY READ/WRITE command will always wait for any 
DECtape that is in motion before it will attempt to execute 
the command. 


The following table shows the correspondence between 
FNEW indices, LIBRARY pages and real core addresses. The 
FNEW indices shown correspond to the first location in each 
paze. - 


FNEW index Core location LIBRARY pare 
0 | 14000 0 
128 * 14200 1 
256 L4400 2 
3584 14600 3 
512 15000 Ft 
640 | | 15200 5 
768 15400 6 
896 : 15600 7 

F024 ~~ T6C00 > 8 
1152 16200 9 
1280 16400 10 
1408 | 16600 | 11 
1536 17000 12 
1664 17200 13 
1792 17400 14 


1920 17500 — 415 


6. 


PROGRAMMING HINTS TO INCREASE EXECUTION SPEED: 


1) Abbreviate all commands to a single letter 
followed by a single space. 


2) Leave out all unnecessary spaces, including spaces 
after the command terminator semi-colon (:). 


3) Use initialized variables, not literals, for 
constants in the program wherever possible. 


ly) Use only one letter for the most used variables 
and constants in the program, and initialize them at the 
beginning of the program in the order of frequency.of use, 
i.e., the most used variables and constants will be first in 
the variable area and will have only one Jetter. The order 
of the variables is as shown when the command 'TYPE $' jis 
given. If the order is not correct after going through the 
program the first time, the program should be modified and 
then the command 'ERASE' should be given to erase the 
previously defined symbols so that ney may be defined in a 
new order. 


5) DO groups and steps to be executed by FOR commands 
should be put at the beginning of the program, starting with 
group 1. This will make the program harder to read and 
start (it must be started by a command other than 'GO') but 
slightly faster In execution due to the method by which 
FOCAL finds the specified group or line, which is a linear 
search through the text area starting at the first line. 


FOCALJY ERROR MESSAGES: 

All errors are typed by FOCAL as: 

ILS. VN ath 
where ZZ.ZZ is the error code shown below and YY.YY is the 
program line number at which the error occurred. If FOCAL 


is executing a direct command at the time that the error 
occurs, the @ and line number will not be typed, 


CODE | MEANING 

00.00 «* Manual restart given from console. 

01.00 * Interrupt from keyboard via CTRL=P, 

01,40 Illegal step or line number used, 

01.78 Group number is too large, - 
01.96 Double periods found in a line number, 
01.:5 Line number is too large. 

01.3% Group zero its an illegal line number. 
02-5572 Nonexistant group referenced by DO. 

02.52 Nonexistant line referenced by DO, 

02.79 Storage was filled by push-down list. 
03.05 Nonexistant line used after GOTO or IF. 
03.28 fllegal command used, . | 

04.34 Left of '=' in error in FOR or SET. 

Ob. 52 Excess right terminators encountered, 
04.60 Illegal terminator in FOR command. 

05.48 Bad argument tn MODIFY command. 

06.06 lllegal use of function or number, 

06.54 Storage is filled by variables. 

07.22 Operator missing In expression or double E's. 
07.38 No operator used before parenthesis. 

07.:9 No argument given after function call. 
07.;6 -fllegal function name or double operators used, 
08.47 Parentheses do not match. 

09.11 Bad argument in ERASE. 

10.34. Storage was filled by text. 


Liao: Input buffer has overflowed. 


* 


LIBRARY not followed by INFO, READ or WRITE. 
Page number too large. 

Number of blocks too small (€ = 0). 

Number of blocks too large, 

Sum of PagetNblks greater than 16. 

DECtape error. Error will show tn MQ lights. 
FNEW index out of range. 

Logarithm of zero requested, 

Illegal terminator of LIBRARY command. 
Literal number is too large. | 
Fxponent is too large or negative. 

Division by zero requested, 

Imaginary square roots reauired, _ 
lllegal character, unavailable command or 
unavailable function used, 


The line number following the starred codes is meaning- 


less because these errors are caused by action external to 


the program. 


Jim Crapuchettes 
Stanford Electronics Labs 
22 September 1969. 
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C- 8K FOCALJ 

41-190 F J=PsP+U3S WH=FNEWCUsFADCCCsZ)) 

01-26 L W BsP3S BaB¥E3I (-P)1.33S P=YsR 

01-30 S P=ZsR 

02.10 S Z=G3S C=Z3S J=Z3S wW=Z 

$2620 S B=Z3S P=Z3S E=83S Y=1@0243S UsY-13S 1=Z3S 021 

92-36 D 5S | 

92-54 D 33F I=0,5TsD 1 

92-60 T “NEXT BLK = 5%5e@0sBs!3G 2.5 

@3.10 ASK “CHANNEL'S Cs"TOTAL WRITES"STs SET P=Z 

03.20 LIB READ B-E,E.03 SET C=C~1 

@4.91 C- FOCALJ DEMONSTRATION PROGRAMs SAMPLING A SINGLE 

B4.03 C- A-D CHANNEL & STORING ON TAPEs MAXIMUM RATE. 

94.85 C- IS ABOUT 45 SAMPLES/SECONDe THE PROGRAM 

04-07 C- HAS BEEN OPTIMIZED BY SETTING UP THE VARIABLES 

@4.89 C- AND DO GROUP CAREFULLY AND BY LEAVING OUT ALL 

O4e11 C- UNNECESSARY CHARACTERS. 

64.13 C- START BY TYPING ‘'G 2-1' OR ‘D 2! 

95-18 ASK “START BLOCK" 8B 7 | 

sd ONCRORCRCRORCR CK ORCRCHCECRCN CHCACH CRCRCRCRCHCN CRCUCHCHCECHCH CRCRCACHCECRCACECH CHRON CACM CCMCH CHECK CH CECE CH OMCECHCHCHCECRCECACECECRCACKCECES! 
* i 

*D 2 

START BLOCK:1@ 

CHANNEL? 1 

TOTAL WRITES:5 

NEXT BLK = SA 

CHANNEL: 701-00 @ 03.19 

*T 25035 §$ 

Z@(OD) B-B4GH NOTE THAT Tie VARIABLES USE OMY 4 
oo ee LETTER. AND THAT THEY ART IN 
WEC(BA) 2952.9 ORDER ACCORDING TO FREQUENCY 
B@CHB) 58.800 OF USE (MosT 4¥SED (8 FIEST, ETC.) 
P@(O8) 1024.8 | | 

E@(QG) 8.2000 

Y@(OO) 1924.9 

U@(GO) 1923.0 © 

1@(@O) 6.9200 ; 

O@(B0) 1-9000 

T@(OB> 5.8024 


saCRCHCRCRCRCRCECKCRCECHCRCECRCR NCH CECH CHCHCNCECECHONCICECHCHCUCHCUCUCHCHCUCECACTCHCUCICHCHCHCHCACE RCUCECICECNCECICNCRCRCACECECE® 
C- 8K FOCALJ 


14-82 C THIS IS A DEMONSTRATION PROGRAM WHICH USES SOME 
19-84 C OF THE CHANGES TO FOCAL-69. 


11-10 TYPE !s5 " BEGINNING OF DEMONSTRATION PROGRAM's !5 ! 
11-36 T “PUT COSINE WAVE IN DATA BUFFERs PLOT ITs WRITE IT ON", ! 


11.58 T “DECTAPEs ZERO THE BUFFER, PLOT THATs READ THE DATA"s ! 
11-670 T “BACK IN. AND THEN nE-PLOT IT TO SHOW THAT IT REALLY'',! 
11-96 T "WAS SAVED.-"s ! \ 

12-18 A fs “PUT SCRATCH TAPE ON UNIT 1s WRITE ENABLED, ! 

12617 S W=@0s S 1=03 S A=3-14159/128s S BH=5113 S O=0.5 

leee4 S C2=03 S§ P=16245 S O=P-1 

122630 A “TYPE “‘READY' & RETURN WHEN READY ‘sy RE 


12-56 IF CRE-@QREADY) 12.6912.625s 12.6 

12-69 T “YOU MUST USE THE WORD ‘'READY'S !-6- TRY AGAIN’ !3 G 12.3 
lee6e2 DO 13-05 T $s "COSINE IN DATA BUFFER--SEE PLOT, ! 

12-64 DO 15-03 LIBRARY WRITE 10545358513 T "COSINE SAVED " 

12666 T “ON BLOCKS 10-17 €8)5 CLEAR DATA BUFFER & PLOT IT's! 
12-68 F [=Z25P35 W=FNEWCI 2) | 

12-780 DO 15; T “NOW READ DATA BACK IN»s MODIFY & RE-PLOT IT's ! 
12-73 L READ 103F I=Z23,03S W=FNEWCILsFNEWCI) *O) 

12-75 DO 153s T “SEND OF DEMONSTRATION PROGRAM, !5 ! 


12.99 Q@ 
13-62 C THIS GROUP FILLS PART OF THE DATA BUFFER WITH A 

13-04 C COSINE WAVE €256 POINTS/CYCLE) WHOSE AVERAGE 

13-06 C VALUE IS 51l-e 

13.20 F I1=Z2,P3S W=FNEWCLs<FCOSCI*A)+1>*B) 

13-30 R 

15-02 C THIS GROUP PLOTS OUT THE DATA BUFFER FROM @ TO 1023. 
15-94 C LINE 15.1 POSITIONS THE PEN CORRECTLY BEFORE PLOTTING. 
15-86 C NOTE: THIS ROUTINE DOES NOT SCALE THE DATA! 

15-10 S W=FPUPC1)3: S WHFDISC@,FNEWC@))s DO 15.53 S W=FPUPC®O) 
15.26 C REMEMBER THAT FDIS TAKES ARGS MODULO 2110 (1024)... 
15-30 F 1[=Z,03S W=FDISCIsFNEWCI)D) | 

15-460 S WeFPUPC1)3 R . 

15.5@ F K=151003s S W=180*1003 C- THIS LINE ACTS AS A DELAY. 


FECCOCCECE CECE CEE ECECOCe CECE COCO O CBee Cree ee Ce ECO eC ee Oe ee ee eee eee e ee 
* 
*G 


BEGINNING OF DEMONSTRATION PROGRAM 


PUT COSINE WAVE IN DATA BUFFER, rLOT ITs WRITE IT ON 
DECTAPEs ZERO THE BUFFER, PLOT THAT, READ THE DATA 
BACK INs ANU THEN RE-PLOT IT TO SHOW THAT IT REALLY 
WAS SAVED. : 


PUT SUKATCH TAPE ON UNIT 1, WRITE ENABLED 
TYPrh *wEADY'S & RETURN WHEN READY =: READY 


COSINn iN DATA BUFFER--StE PLOT | 
COSINE SAVED un BLOCKS 16-17 (845 CLEAR DATA BUFFER & PLOT IT. 
NOW READ DATA BACK IN»s MODIFY & RE-PLOT IT. 

END OF DEMONSTRATION PROGRAM 


sy 


FOCALK - DECtape FOCAL.W 


Differences between FOCALK and 8K FOCAL.W: 


l. The Teletype output buffer has been increased to 128 
characters from 16. 


2. The Equal sign (=) has been removed from the number 
typeout. It may be put back in as part of a quoted string 
if desired. | 


5% The * command (high speed reader) has been removed, 


kh, The function FDXS has been replaced by FPUP (which 
moves the plotter pen up and down and advances the chart 
on the plotter). 


5 The function FDIS has been modified to accept one 
or two arguments (to set both X and Y co-ordinates). 


6, The function FADC has been modified to use the 
AFO1A ADC/MPX and will accept one or two arguments 
(argument 1 sets the MPX channel, optional argument 2 
will cause the program to wait for the variable clock). 


7. Core 1 allocation has been modifted. The first half 
is now used as the program (text) buffer and the second 
half is used as an array/!/0 buffer. 


8. A function, FNEW, has been added to access the signed 
Integers in the core 1 array/!/0O buffer. 


9, A LIBRARY command has been implemented to READ/WRITE 
using the core 1 I/O buffer. 


10. Error codes have been added for the added and modified 
commands and functions. 


11. The control key function has been modified: 
CTRL-p causes FOCALK to restart. 
CTRL-C causes FOCALK to call the DECtape System. 


LEBRARY COMMAND: 


This command requires TCO1-TU55 DNECtapes and 8K 
of core as presently implemented. 


i 


The command may have either of two forms: 


LIBRARY READ (Blk, Page, Nbliks, Unit) 
LIBRARY WRITE ( Same as READ ) 


i 
| 


| 
| 


where: | 
Blk= DECtape block number where READ or WRITE 
will start. 
Page= Core 1 buffer page (128 locations each) 


where data transfer will start. May have 
a value 0 thru 15. Initialized to 0. 
Nbiks= Number of DECtape blocks (1 page each) 
to be transferred. May have a value 1 
thru 16. Initialized to 1. 
Unit= DECtape unit for transfer. Initialized 
to l. 


These may be either constants or variables, 


Abbreviations: 


L LIBRARY 
R READ 
W WRITE — 


The argument list (enclosed in parentheses) may 
contain from one to four arguments. The arguments are 
scanned from left to right and omitted arguments are 
left as previously set (by a previous call or by the 
initial values shown above). If an argument is left 
out, the comma preceding it must be replaced by the 
closing parenthesis. Any one of the three sets of 
parentheses allowed in FOCAL may be used to enclose 
the argument list, but the set must be matched. 


Examples: 


LIBRARY READ (B, 8, NBLK, 1) 

LIBRARY WRITE (BLKNO, PG, 5) Unit omitted. 
LR (B, 8) Nbliks and Unit omitted. 

L WR (BLK) Page, Nblks and Unit omitted. 


UNCTIONS: 


All functions must be used in SET commands, even 
when storing data. All can have either constants or 
variables as arguments. 


FADC(a,b) - Sample MPX channel a under clock control, 
FADC(:a@ ) - Sample MPX channel a. (No clock.) 


a = channel number, 0 thru 11 (12 channels) 

For b # 0, wait for clock flag before sampling. 

For b = 0, wait for clock flag and then clear the 
flag before sampling. 


FDIS(x,y) = Set X and Y position on scope and plotter, 
FDIS( x ) = Set X position on scope and plotter (CY left 
as previously set). 
x & y are taken modulo 2**10 (-1 & 1023 are equivalent). 


( 0,0 ) is lower left hand corner on plotter and 
scope (-10 volt, -10 volt). 
(1023,1023) is upper right hand corner (0 volt, 0 volt). 


FNEWCT,x) - Store integer part of x in location i. 
FNEWC j ) - Get integer from location j. 


x Is stored modulo 2**12, so care should be taken 
to keep ~2048 ¢ x € 2047, : 


i & j must be O<¢ i or j £ 2047. Each page specified 
by the LIBRARY command contains 128 (base 10) locations, 
hence i = 0 refers to the first location in page 0 of the 
core l array/|l/0O buffer, i = 128 refers to the first 
location in page 1, i = 256 refers to the first location 
in page 2, f = 258 refers to the third location in page 
2, etc. The next page has a diagram of the array/buffer 
which shows this layout. 


FPUP( z ) - Move hp 2D-2 pen and chart: 


For z> 0 Raise pen. 

For z = 0 Lower pen. 

For z = -l Raise pen, move chart 3 inches. 
For Zz = «2 Lower pen, move chart 3 inches. 
For z < -2 Move chart 3 Inches. 


The last three options require that the Moseley 
17005A chart advance be turned on and that rolled chart 
paper be used, 


RRAY/1/0 BUFFER LAYOUT: 


The fol}owing diagram shows the layout of the 
core 1 array/!/0O buffer. This area in core 1 extends 
from 14000 - 17777 (octal) and is used both for data 
storage (2048 location integer array) and for DECtape 
read-write transfer (16 DECtape blocks or core pages). 


FNEW will allow access to this array when one of 
the following conditions is true: 


l. The location specified is outside the pages 
specified by the last LIBRARY command. 


or 


2. The location is within the pages specified AND 
no DECtape is in motion under program control. 


These conditions are necessary because the DECtape 
routines used by the LIBRARY command use the program 
interrupt to allow concurrent program execution and 
DECtape 1/0. This setup allows a FOCALK program to do 
double buffering of the DECtape if desired. 


FNEW index Core Loc, LIBRARY pages 
0 | 4000 | 0 
; eee 
128 | 4200 | | 
[ | 
256 | &LOO | 2 
384 | 4600 | 3 
Leena! 
512 | 5000 | r 
. : een | 
640 | | 5200 | 5 
a 
768 | 1 5400 | 6 
| een 
896 | 5600 | 7 
1024 | 6000 | ~—i8B 
[| eeeeere 
1152 { 6200 | 9 
d Reno | 
1280 | 6400 | 10 
; nee U 
1408 6600 11 


Each of these 
corresponds to the 
first location in 
each page. 


° .-] 
® Lu 
© 6 


All errors are typed by FOCALK as: | 


?ZZ.2Z @ YY.YY | 


where ZZ.ZZ is the error code shown below and YY.YY is 
the program linesnumber at which the error occurred. 

If FOCALK is executing a direct command at the time that 
the error occurs, the @ and line number will not be 
typed. 


MEANING 


CODE 

00.00 Manual restart given from console. 

01.00 Interrupt from keyboard via CTRL=-P. 

01.35 Group zero is an illegal line number, 
01.42 lllegal step or line number used. 

01.89 GOTO was not used as one word. 

01.33 Double periods found in a line number. 
01.32 Line number is too large. 

02.48 Nonexistant line referenced by DO, 

02.63 Nonexistant group referenced by DO. 

02.81 Storage was filled by push-down list. 
03.09 Nonexistant line used after GOTO or IF. 
03.31 lllegal command used. 

04,07 No space after IF or fllegal format. 

04.35 Left of '=' in error in FOR or. SET. 

O& 48 Excess right parenthesis encountered. 
04,56 lllegal-terminator in FOR command, - 

05.63 Bad argument to MODIFY. 

06.13 lllegal use of function or number, 

06.64 Storage is filled by variables. 

07.14 Operator missing in an expression. 

07.34 No operator used before parenthesis. 

07.31 No argument given after function call. 
07.;:8 l}legal function name given. 

07.<0 Double operators used. 

08.50. Parentheses do not match. 

09.16 Bad argument in ERASE. 

09.58 Maximum group number exceeded. 

11.20 Input buffer has overflowed. 

12.82 Storage was filled by text. 

17.55 LIBRARY not followed by READ or WRITE. 
17.63 READ or WRITE not followed by legal terminator. 
17.67 READ or WRITE riot followed by a right paren. 
17.80 Page number too large (maximum = 15). 
17.96 Matching left paren not found after 4 args. 
17.37 Number of blocks too large or 0 (max. = 16). 
17.390 Sum of Page+Nblks greater than 16. 

17.<1 Left paren not followed by 3; or CR. 

18.31 DECtape error. Error will show In the MQ.* 
20.41 Logarithm of zero requested. 

23.55 Literal number is too large. 

25667 Neither a comma nor matching left paren 


following an argument. 


CODE MEANING 
26.91 Negative exponent used. 
26.96 Exponent is too large. 
28.58 Diviston by zero requested, 
28.35 FNEW index is too large. 
30.48 Imaginary square roots required. 
31.<7 lllegal character or unavailable command. 
or unavailable function used. 
* The line number following error code 18.3:1 is meaning- 


less because the DECtape uses the program tInterrupt. 


Jim Crapuchettes 
26 August 1969. 


20. Nov. oe. 


Changes oud actet tions FOCA ie 7 


Tele ty pe output butter, lncreaseck te. (26 | characters 
gw Tren ae : gl Ie a Bee Pe Be 


: Core o: Focal ‘pro per te ae dale nek eee 
ee, 4: 7 Text Capprox, eas characters) < aa Dota! (aK indeaers) 


Equal sign ‘removed | Brom peas 


. ¥ “command ic s. reader -) removed. 
ros Aanehion- ‘replaced bs Feup . 
ae pp iS function modi - = one. or two anne | 7 : 


a ee ey oe es EN N EW  Qechen prey 
a ai Read /weite using core 4 by fer t 
“access | the outer = fiomas. q retrieval « 


i Snel Ave. “Fri moc Red — one or ton screeners 


ES BOs ES eee 
: ea addled and Teeguvrt: com mands, ee eae 


ee + ’ 


Ze 
LigeAey Commann (uses TCd41- Tus | Dectapes Bk ere) 
‘This commanel may have elmer of eo foams. 


/ Lieeney RERD a PAGE, ¢ WBLKS asery 
bleRARy WEIIE r wf, SAME cog (AROUE ae | 


i 


, ony Ss. aie ee block panber ee: Renn or We ITE | 


will etavb 

Core 1 bu Cher page. ‘Ci 28 aon ‘phiopés - 

= data +rans Lop vsill start [gy to 1s]. Tntt= ¢ 

- NBLKS= Number of Dectape blocks C4. page 
—  @€ach) te be tvausfered [4 +e 16], Tnit= 4 
“unit = = Secriens or oe Phiearstinits sales Se (Tne t 


a 


ff 


and cach, ries be either ew vari ‘able or 4a “constant. 


“Abbrev ‘ations + ; a, ee See 


See as LIBRARY , Re “READ t we we ITE 


oo. 


: oe ‘may “te “hon one te. oe | argue. ents eee 
Ae op ele Os ed iM the parentheses. “They Are. sca nu ed 

? fom left to. eights ond any a uments left 
pose = are lel aS pre viously set? TR an avqumert 
ie lett out, dhe comma pre ceding: rt must also _ > 

cn be | replaced by the elosing parenthesis, | | Any mee 
ene of the, tree pessivle sets of ae ee 

BoE Ee OM be cased, ae o _ they | must. be Paks mA he | , 


- tieeney Read (6,8, NeLK, wh ees By 
gery, WRITE C8LKNO 4 ae 55 a L WRITE c BLK 2. 


ge Inchatl valves shown above. 


& 


Funerions: All must be used in a “Ser” command, 
All COW have. etther constauts or vavialoles 
as —_—onnre | 


FApC(«.,, b) _ ainwhe Mex Peer a under clock coutrol, 
FApc( a ) - —— DEE. eines a. _ENe a) 


Fer bee. m er hoe woke Cag aun cr, pag iy | 
. For “e 4 Bia Pi =“ eg 4 er a Ona en Sample, . 


ne ce Fpis( Xe y) _ —<— xX rs y rings on ae v' ah, 
—-  Fprs xy Qo =” Set X — On er a oe, ~ let 
= - as. Sek 


x ¢ y ave hee ‘modulo z ” + onsigned & Lae (023 ore same), 
©, °) \S lower lett hand ¢ corner on n per 4 scope Co “tm. 


Geese) i (S “bere vig hand ¢ corner a “oy, oud, ee 


sar stg a gee at caine 


 FWEWC bas . me Shore, “ahened: pen a va Ty acne t. 

tnsxtets) 4 _ oe: er robert rom fecaten a eae 

- oon Is ‘shored pores 2" “9 Be: care. on ould be aken 1 a 
keep + 72048 | é Axe 2047 Re oe 


-_ - ti ‘ane hee in aa rere oe bor j& < 2047 mt Each” | 

- page specified by the. LIBRARY command a a 

128, locations, and henee Ceo refers do! 

the 1% lecatien tw page ¢ of the core A date 
butter, | (c= (28 6 st locaton os page. qd. 5. c= 288 

oi 6s —— Pei re page 2, ete >: See. text page, 


Fpue(z) — Move H-P 20=Z pen ¢ chart, — 
For 276 rase pen 


oo For oe dite, Pets 


_ For t= -4A “pause pen. ¥ move chat = 


% move. poten at 


Ror Band Ine pen 
(For gz mive chart 3 
os ee, a snag requive. “We Moseley 17506 A, 


chart advance to be ON and rotlect chart ee 
“Paper ial be. used Ah : 


Dp Del ata ‘Bu athe + to as 


Pages: oe "Speci bid by LI BRA RY © command 


- tas 4 e o7 & awit S44 tS oe 


oS = 2048 caine 7 


Ths | Area is a for t pee ae g fence “on va 5 e a ; - - 
. Dectape | tread — write, travefer JEN NEW. | wi Moe CS ee ee 
pAece SS this bu ther vhen + : ee He ra : pe tas 

cof ie ee Dy location specified is outside the pars se efi 2 4 a “ 

: os by +e, | 64 BRA R Y comm and, & ie eee a : : | oe 
ae location is within the pages io: Dectap oe 


Me pede: Pe or ee 


Abpimions To Foca 
ied 6 Ze 


ERROR Dingnosrics . Pe 


(4 17.29 -— Fenians ie no heey bg READ | or Eee ae 
712.47 - KERD or Were not £5 lowed buy leqal terminatev - | 
24751 - Read or Werte not followed by Right Paren. < L or ( 
717.64 — Page number (argument #2) too lavage (may, 15). ~ 2 
°? 17.89 _ Matching Left Paren. not found afer 4 avas. ? , jor) ° 
9 17.44 —- Number of Blocles Cava. #2) too large (max = 16) > ~ ; “ae 
| 71794 — Sum of Page + Blocks greater than lo. a oe = 
“S9 17. ‘s Left _— not Lidaerae: ba or CR. a nite ae 


1851 ~ Pectape § Error. The | error “with shows m 1 the nat ; ar 


2 23.37 = Maite a comma nor @ t matching Let foren re Aalowsieg 


8 28, +5 | << FNEW index too. large. i ee teas 


* Could also : Indicate ‘No. ot Blocks oa nts 


ar bine umber means wo thing m this error, i Pern 


ROUTINE TO 


7ZAO 
—Z010 


1240 
Zo lv 


(216 


3227 
4247 


AOI 


ZO}O- 


lO-7O 


22097 


4217 


Sbls 


200 


777o 


og 


1417 
‘@Zil 

. - IO 
_ ‘ 2227 
5220 
$617 | 
fe 


DEA AMIN 
TAD MAC 
| _ DcA CWT. eee, 

| gms ‘ MOVE 


MLO,—46 0 
MES | 


CDF ag 


LOAD TEXT INTO UPPER CORE 


¥ 4000 | . | : | | a 
STA oo STENT ALIZE AXIN TO 
DCR AXIN ; 

TAD FTEKe 
Deca AXOUT © 
TAD Mto 
OMS | Mout | 


LOAD FIEST 
into 416¢66¢ . 
— FINTIL AKOUT TO TEXT 


/ 4$T 1s 16 (@> weerg 
FRE - 
TAD © PT? — CRETNITIL TO PUT WTO 144¢¢ 


Aha 4108) weePs 
‘es i. / wove cr ee “ 
oe Acme Go Te REAL peed, START | 


PME “ERO AxoUT Ceoee g) 
J TO AKIN CeoRE AQ 


wb LES 


TAD ie AnouT 


DeA EAM Oe 


cor g 
; loz 
: ap © 


a i 


Moet | 


TMP x MONE, 
ONT, S 


ae 


FOCALW MODS 4 


/MODIFICATIONS TO ®K FOCAL TO ALLOW READING FROM AND 
/WRITING ON PECTAPFs TO LENGTHEN THF QUTPUT BUFFER 
/AND TO MODIFY SFVFRAL OF THF FUNCTIONS. 
; | 
/THE HIGH SPEED PAPER TAPE READER COMMAND HAS BFFN 
/REMOVED « 
4 | 
/JIM CRAPUCHFTTESs STANFORD UNIVFRSITY 
/ NOVFMBER 1966. 
“LENGTHEN OUTPUT BUFFER TC 128 CHARACTERS. 
4P 643 , 
PEAR ANE AND P177 /INCREASE~-" TINT" 
¥2720 
2720 One6 AND P177 7 INCREASE--"XOUTL" 
#2742 | 
2743 1924 TAD P7609 /CLEAR 128¢1) LOCS 
TA 
A974 a40m END» 3490 /VARIABLES START MOVED UP 
VIN 4K FOCAL+Ws THE DUMMY LINE AT BEGINNING MUST ALSO BE 
/MOVED.« MOD TO 64 CHARS BY USING P77 AND M100- 
/SHORTEN UPPFR CORF TEXT BUFFER TO 1972¢1@) LOGS. 
| #3116 | _ | 
2116 1322 TAD TEND /CHRCK FOR END OF BUFFER 
2117 110 TAN AXIN | 
212% 7620 SNL CLA 
3121 S707 JMP 1 PCK} 70K 
3122 A526 FRROR? 
3123 4903 TEND» -3775 
*1236 / (TYPE2 +2) 
1226 700 NOP /REMOVE "=" ON TYPEOQUT 
1227 7090 NOP 
/CHANGE TO FDIS+-NOW FDISCX2Y) OR FDISCX) CNO CHANGE TO YD 
x11 A0 /NOTF=-THIS IS 4TH LOC OF FLARG2s NOT USED 
/IN 3 WORD FeP. PACKAGE 
1149 4452 XNIS» JMS I INTEGER 
1141 4502 PUSHA /SAVE AC 
1142 ASAI PUSHd /CHFGK SEP & 1F COMMA. GET ARG 
1142 4263 TCOM | 
1144 5347 /NOT COMMA 


JMP DISP 


FOCAL W MONS 


1145 
1144 
1147 
1156 
ie eae: 


S071 
Bote 
DATS 
DSTA 
me i Aes, 
ata Aa. 
ca a | 


7567 
757A 
7571 
tote 
TOTO 
7574 
i ie a aes 
La:L6 
CaTT 


LODE 


G0%c 
AST 
6574 
6575 
6576 


9755 
97564 
2ilot 
2768 
S741 
9 742? 
S743 
D744 


AA63 
TEVA 
1413 
657 
7410 


L452 
71450 
AAP 4 
7540 
6472 
5777 
367 


708} 
7450 
6072 
7550 
£02} 
TAR 
TASA 
BAD A 
5590 


PAT? 


450) 
162 
A45P 
7360 
S542 


ABABA 
ASH} 
4263 
T4IA 
SLs 
4511 
PA I 
7419 


! 


DYL 
CLA 
POPA 
DXS 
SKP 


SET Y 


DISP-» 


/SET X & INTEN. 


/CHANGF FDXKS TO FPUP--PEN AND CHART 


JMS I INTEGER 
SNA 

6024 

SMA SZA 

607° 
JMP I 
KPEN 


CET ARG 
/@=PEN DOWN 


/+=PEN LP 
e+] 


*7S567 
XPFN» TAC 

SNA 

AY TP 

SPA SNA 

602 1 

TAC 

SNA ELA 

624 

JMP JT EFUNSI 


7-1=PEN UPs MOVE CHART 


7-=MOVE CHART 


7-2=PEN DNs MOVE CHART 


+FNTARL4S 


2672 -/CHANGE HASH CORF--PUP 


/GETARG ROUTINE --RECURSIVE 


O65 Le : 
GETARGs PUSHJ ZEVALUATE NEXT ARG 
EVAL-1 /SKIP THIS CHAR ALSO 
JMS JI INTEGER 
CLA CLL /ARG IN FLAC+E 
PQP J “RECURSIVE EXIT 


STCRECK=-CHFCKS FOR ANCTHER ARGUMENT IN PARAM LIST CI-E- 


/ LAST SEPARATOR BAS A COMMA). IF OWNEs 
/ CTHERWISE CHECKS FOR MATCHING PARENS.- 


GETS IT. 


D155 
TCHECK>s © 3 
PUSH /CHECK FOR COMMA 
TCOM 
SKP “NOT COMMA 
JMP TCH WAS COMMA, ARG HERE 
SORTC | 
TERMS-1 SCHFCK LIST FOR TERMINATOR 
SKP 


FOCALW MONS 


S765 
5766 
S767 
ST 7TA 
59771 
5772 
S773 
I774 
DED 
S776 
2777 


7155 
7156 
7157 
7160 
7161 

716° 
7162 
7164 
7165 
71B4 
T7167 
7176 
7171 

7172 
71723 
7174 
7175 
71764 
7177 


45° 6 
1412 
1377 
10641 
1127 
Tb6AG 
5365 
7416 
2355 
Stoo 
AAD 


4452 
1375 
3172 
1172 
TAA 
7TSAG 
452° 6 
TBEP 
7TTAA 
SAAR 
1172 
43503 
45601 
4362 
2426 
5777 
AAG 
6171 
G35 


1 


FERRO 
POPA 
TAD 
CIA 
TAR 
SZA 
JMP 
SKP 
SZ 
JMP 
a 


&. 


RP 
PA 
SORTCN 
CLA 
--6 


TCHECK 
I TCHECK 


/NOT ON LIST--FERRGR 
“GET LAST PAREN CODE 
“DO THEY MATCH? 
/NO--SAME ERROR MESSAGE 


/HERE IF COMMA 


/FNFW--ACCESSES DATA POINTS IN UPPER CORE BUFFER 


#7755 
APNE Ws 


BASE> 
KEGET » 


AFPUT >» 


JMS 
TAD 
DCA 
TAD 
NOP 
SMA 
FERRO 
NOP 
SMA 
JMP 
TAD 
PUSH 
PUSH 


JMP 
JMP 
4B AO 
XCET 


APUT 


i INTEGER 


BASE 
PTR 
PTR 


RP 

SZAa CLA 

02 

PTR 

A 

J | 
TCOM 

I AP GET 

I XFPUT 


“CHECK POINTER 


“STAD Ceag" IF START AT 3686 


/WAS TOO BIG 


—/"TAD Pe" IF SAFETY NEEDED 


/SAMF ERROR 


/CHECK FOR ANOTHER ARG 


WASN'T COMMAs SO GET 


FOCAL W MODS 


A317 
A3PA 
A3?P | 
ARAOD 
A323 
ABP 4 
63275 
63?°6 
6227 
B33 
623) 
A33P 
63233 
E3384 
6335 
6336 
62337 
AB AG 
ABA] 
ARB AP 
6.4408 
RAMA 
8345 
ASAGB 
ARBAT 
K35A 
63251 
A325? 


4353 
6354 
6355 
6356 
62357 
A364 
A361 

436° 
B60 
A264 
Aaés 
A366 
ASAT 
ABTA 
AAT 

HAT? 
6373 


4452 
A523 
A450] 
A263 
rte hs) 
71606 
7650 
7120 
T20AG 
461? 1 
7416 
S238 
7436 
61P64 
1412 
6542 
6202 
46532 
T2086 
6531 
QA Zo 
4524 
BAA I 
BAAS 
BAB 
1AgS 
RA LS 
5578 


7320 
ITT 
A262 


° 


/CHANGE TO FARDC FUNCTION--FADCCI) » 
/ OR FADCCIsC)s5 GFT MPX CHAN I é 


*AB17 


XAD1 » 


XAD? » 


JIMS 


GET MPX CHANNEL I- 
USE CLOCK 


“NOTE THAT THIS REMOVES THE HeS-+ READER 


J INTEGER 


PUSHA , 
PUSHJ ‘ 


JMP 
CLL 
SNA 
STi 
CLA 


CKSF 


SKP 
JMP 
SZ 


TCOM 
XADI+G 


CLA 


2-2 


CKCr CKDF 


POPA 
ADSC 


IQF 


ADCV 
CLA 
ADSF 


JMP 


e-] 


ADRE | 


ION 
DCA 
DCA 
TAD 
DCA 
JMP 


FLAC+] 
PLAC+2 
P13 

PLAC 

I FFUNSI 


/SAVE GHANNEL 


/CHECK SEEPS ETOCS 
/NO SECOND ARG--SKIP CLOCK 


f+ OR -» WAIT FOR CLOCK 
/Q@s WAIT AND THEN CLEAR 


/WAIT FOR CLOCK 


/1F LINKs CLEAR CLOCK 


/GET CHANNEL 
SET IT 


“MUST WAIT WITH IOF FOR DONE 


/SET UP AS AN INTEGER 


ecpcili cml 7S2& 


/CONTINUATICN OF FNEW® ROUTINE 


XPUT 5 


IATPAG YO 


614 
3572 
APH] 
SSAA 
ARAL 
14123 
317° 
1172 
11728 
TS1G 
RATA 
1174 
T6P°# 
47764 


ICKFKs 


JMS 
TAD 


CDF 


DCA 
CDF 
JMP 
4) 


POPA 


DCA 
TAD 
TAD 
SPA 
JMP 
TAD 
SNL 


» IMS 


I CHEK 
SerE FLACLZ. 
ia 

I PTR 

An 

I EFUN3I 


PFR . 
PTR 
MLO WW 


Pome: 


TOK 
MDIF 
CLA 

I DWATE 


mim CLA STL “SAVE THE INTEGER 


7IF WITHIN DT BUFFER» WAIT FOR DONE 


a re 
awd 


« * 
Page aa 
me. 


/CHECKS POINTER FOR WITHIN DT 
/BUFFER SPECIFIED BY LAST LIBRARY 
/CALL« IF IT ISs WAITS FOR NO 
/NO DT MOTION | 


WAS IN BUFFER--MOTION? 


FOCAL MONS 


0172 
A173 
A174 
AYTS 


1A) 
1207 
AAG I 


AAG? 
BAKA 


BH418 


BAC 7 


TPAA 
5762 
457} 
ARE 


4777 
6P 11 
1572 
6201 
5776 
6246 
63642C 


AAA 
4A BB 
7606 


HAAG. 


2725 


42 30 


2 
10K CLA /EVERY THING OK 
JMP 1 ICGHRK . 
DWATEs DWAIT 


7REST OF FNEW ROUTINE 


*6171 | 
AGE Ts JMS I TICHEK 
CDF 1A 
TAN I PTR 
CDF @6 
JMP IT +] 
KADP 


TICHEKs ICHKEK 


JADDITIONS TO PAGE @ 


#172. | 7 | | : 

PTR» a | | eh re 
ML. O vs - 40 GA 7 | | ; 
MDIF> -~PAH 


MCOMs /INTERCOM REG TO DT ROUTINES | 


“CHANGES TG VARIOUS TABLES = | 


41204 /COMGO + eS 
LIB /POINT L TO LIB ROUTINE 
£1207 


FRRORS /* COMMAND NOT LEGAL 


*FNTARF +3 


— /PATCH NEW ROUTINES INTO FUNCTION TABLE 
“XDIS - ; oe aes es ae ee A 


+FNTARF+5 
XPUP 
XADC 


*#FNTARF+15 
A RFNEG 


/CHANGF ROTTOM OF PUSH-POP LIST FOR NEW LIBRARY COMMAND 


*BOTT OM 
ie 


FCCOALE MOPS 2 


“LIBRARY COMMAND--RFAD FROM 

FROM UPPFR CORFE BUFFER. 

COMMANDS: | 
LIBRARY RFAD CRLKs> 


OR WRITE GNTO DECTAPES 
DATA IS ACCESSED BY FINE. 
PAGE >» 


NBLKSs UNIT 9) 


LIRRARY WRITE ¢ SAME AS ARQVE ) 
WHERE: | 
BLK=TAPF RLOCK> PAGE=CORE PAGE (@-15)>.2 


NBLKS=NUMRER OF BLOCKS TO READ OR K&RITE> 


AND UNIT=DECTAPE UNIT €1-68&). 
ARBRE VIATIONS : 
L=LIRRARYs R=READs W=WRITE- 


IT IS POSSIBLE TO HAVE FROM CNE TO FOUR ARGUMENTS FOR 
THIS COMMAND. THE OTHER ARGUMENTS ARE LEFT AS THEY 
WERE SET PREVIOUSLY+ THE ARGUMENTS ARE SCANNED FROP: 


NWN NN ON NON ON ON ON ONIN NON ON ON ON NR NS 


ROTH LEGAL. 
ANY 


TRE FNEW 


OF THE THREE SETS OF PA 
THEY MUST BE MATCHED. 


LEFT TQ RIGHT SQ CBLK), CBLKs PAGE, MNBELKS) ARF 


RENTRKESES CAN GE USED», BUT 


IT 1S POSSIBLE TO DOUBLE BUFFER THE DECTAPE BECAUSE 
ROUTINE 


WILL ALLOW REMOVAL OF DATA ONLY 


IF IT IS NOT WITHIN THF RUFFFER DESCRIBED PRY THIS 
COMMAND, GR IF THE DECTAPE IS NOT IN MOTION. 
KAP 3] 

4231 4521 #LIR>, ~SPNOR /SKIP SPACES BETWEEN COMMANDS 

4232 1142 TAD CHAR | | 

4223 45082 PUSHA /SAVE CHAR 

4224 ASAE GETC 

2225 A451) SORTC /GO TO TERMINATOR 

APA 1405 GLIST~1 

4237 TAIA SKP 

424 SP34 JMP .-4 oo 

424] 1412 POPA “GET CHAR 

AP4D 1252 TAD MINR /R? 

4243, 7450 SNA | 

42944 525] JMP LIBI /YES--READ 

4245 1067 TAD MS /W? 

4246 T64A SZA CLA 

4247 ASP FRROR2 /NEITHER--ERROR 

425A 1274 TAD P6 /SET WRITE 

4°51 1356 LIR1> TAD DTR 

4252 3355 DCA DTIJ /SET R-W POINTER 

4253 ASP] SPNOR ZIGNORE SPACFS 

4254 4511 SORTC “CHECK TEPMINATOR 

4255 PAM TERMS =} 

4256 TAI SKP 

A2ST ASPK ERRARS /EFRROR--TERMINATOR NOT FOUND 

AOK6R = 1127 TAN SORTCN 

496] 4583 PUSH? /SAVE TERM CODE 

4262 4523 TSTLPR 


-~{&- 


/TEST IF L-PAREN 


ROCALW 


APA 
AP AA 
2°45 
2° 66 
4° 67 
A270} 
427) 
4272 
APTS 
A074 
4°75 
4276 
4277 
ABAD 
ARMA) 
ARAP 
A343 
ABAL 
4305 


ABAA 


4207 


A310— 


4244 
4312 
rane ee 
4214 
AST 
42316 
42317 
ABP 
4301 
AQPP 
43223 
ARBODA 
A225 
ARP 6 
AQP 7 
4330 
ABB 1 
433° 
4323 
AQABA 
42325 
AB36 
ASAT 
ARAL 
A3 A] 
A342 
ARQAR 
ARLA 
A2QAS 
ARAAG 
AQLAT 


MODS 


4526 
454] 
657° 
16446 
83843 
A757 
§3? 1 
Bao 
T4323 


AWAKE 


TTA 
TAA 
7170 
4526 
75@1 
3348 
A757 
53°? } 
7041 
B34? 
4757 
532] 
7433 
AALS 
varies 
1Qh4 
3341 
A757 
T4119 


4526 


1340 
704] 
ots 
124? 
7433 
AMAGE 
7741 
3174 
1174 
75800 
A5P 6 
1173 
T7714 
A5? 6 
ATS5 
ABGA 
1016 
CLF 
ADLA 
4506 
452 } 
4510 
1406 


a 


PGs» 


DOTAPE > 


CORFE s 
UNITs> 
MRELKS>» 


BLK » 


DCA 


DCA. 


ERROR? 
PUSHJ 


FLAC 
BLK 
J JT 
DOTA 
PEE 
SHL 


TAD 
DCA 
JIMS 
JMP 
TAD 
MOL. 
6 
CLA 
NOP 
SMA CLA 
ERROR? 
MGA 
PCA CORE 
JMS IT IT 
JMP DOTA 
CIA 
DCA MBLK 
UMS FT IT 
M@L 
14 
CLA 
TAD 


MOA 


SHEL 


MOF 
P1Q 
UNIT 
JMS I IT 
SKP 
ERROR? 


TAD CORFE 


CIA 


DCA 
TAD 


MLOW 
MBLK 


MQL SHL 


6 
CLA MA 
MDIF 


TAD MDIF 


SMA 


ERRORS 
TAD MLOW 
SPA CLA 
ERROR? 
JIMS JT PT 
ZAAD 
1ATA 

=I 

1A 


CETC 


SPNOR 
SORTJ 


GETARG 
+? 


CHEK 
PE 


CHEK 
PE 


S 
CHEK 


NOTAPE 


CHEK 


S 


IJ 


TLIST-1 


- /CLEAR M@ & 
/7 PLACES 


/NO=<ERROR 
/GET AN ARG 


/BLOCK NUMBER 
/CHECK TERMs ARG» 
/WAS CORRECT PAREN 
/PAGE=@ MEANS 4@0@ (P17 FOR 368) 
SHIFT BACK 


ETC e 


/"TAD Cepa" TO SAVE PAGE 32 OF CORE 


/CIRCLED BACK INTO TEXT 


/SET CORE LOG 


/-# BLOCKS 
/CLEAR M@ & SHIFT BACK 
7 918) PLACES 
SET FIELD TOA 


/OK--CORRECT R-PAREN 


/SORRY--SHOULD HAVE BEEN PAREN 


/SET UP BUFFER LIMITS FOR FNEK: 


“/CHECK FOR CORRECT ARGUMENTS | 


—/TOO MANY BLOCKS--BACK INTO TEXT 
_ £60 TO RI 
/INITIALIZE ALL 


READ GR WRITE ROUTINE 


/SKIP OVER THIS CHAR 
/SKIP SPACES 
/TEST TERMINATOR 


FOCALW MODS 83 


ABA 
4351 
ARSE 
4253 
AIS4 
AB55 
ABSA 
42357 


A366) 
4261 
4267 


4363 
A364 
4365 
AB66 
4367 
A378 
437) 

A372 
ARTR 
ARTA 
A375 
4376 
4377 


as aad 
45? 6 
T4564 
AAP HR 
AwM1A 
449 
4440 
5755 


4351 
AALS 
Ab24h) 


4524 

1142 
1377 
TAG 
5542 
ASAI 

6572 
1412 
7101 

3172 
1946 
5572 
7524 


LIBLIS-TLIST 
LIRR, ERRORS /BAD TERMINATOR 
MINR> - 3200 | | 
POH; Oo” 
P1@s 1A 
PTIds R12 e 
DTR» RICF 
ITCHEKs TCHECK 
LIRLIS»s LIPP /3~--ERROR 
PROCFSS /3~--CONTINUFE ON THIS LINE 
PC] | /CeoRe--END OF LINE 


/TCOM ROUTINE --CALLED REFCURSIVELYs CHECKS THAT TERMINATOR 
/ IS A COMMA CIF SO GETS ANOTHER ARGUMENT FROM THE LIST). 


TCOMs, SPNOR 7ZIGNORE SPACES 

TAN CHAR 

TAD MCOMM 

SZA CLA - = 3 

POPJ /WAS NOT COMMAs EXIT 

PUSH . 

GETARG /GET THE NEXT ARG. 

POPA _ 

CLL IAC /CORRFCT RETURN 

DCA PTR _ | 

TAD FLAC#H2 /CET INTEGER FROM GETARG 

JMP I PTR /NOW RETURN | 7 
MCOMM, -254 

-k-= 


FOCAL MODS 4 


ALAA 
AAP 
A AQO 
AAAS 
A4GA4 
4405 


AKG 
LAGT 
AAG 
A411 
441° 
AAR 
AALA 
AZAVTS 
4416 
A417 
AAO 
AA 4 
A420 
AAO 2 
ALPA 
AAP 
4426 
A4P7 
4436 
443] 


4432 
44233 
AARL 


AAQS 


AA3B6 


4427 
2440 
444] 

AAAD 
ALA2 
AAAL 
“ZALS 
AAAG 


AANH 
4371 
1eAA 
3P 6 
1°0) 
SP 18 


AAG 
A227} 
1262 
222 7 
12 46) 
4232 
BPH 
A232 


eae. 


£P 3P 
BP 65 
1236 
3277 
B2A4 
AP AP 
29° 7) 
S33 
AAAA 
AAA 
5486 


AGAG 
1606 
PEDH 
563? 
AAP T 


LP 7A 
1°66 
67T#A 
1240 
3663 
Ala 
ATES 
12a4 


#AAGAA 


/ PFCCAL e fri e 


JMODIFIER DECTAPE ROUTINES TO BE USED WITH 


ERROR ROUTINE GOFRS TO 
/THE INTFRRUPT BIT IS XOR'ED QUT ON AN ERROR; 


FOCAL ERROR ROUTINE: 
fee, LON” 


“HAS RBFFN RFMOVED AND TWO CONTSANTS ARE TAKEN FROM FOCAL - 


DTLA=A47466 


R12&%s 


WIP EK» 


DRETs 
DIF » 


DTEMP » 


DTEMA » 
DGET » 


DCRET >» 


PRIPB: 


DRIP» 


0 
JMS DWAIT 
RIP 
W128 
TAC 

NGR-2 


DkAIT 
DRI2EC 
DRE T 
CMA 
DGET 
R12& 
DCE T 
DUF 
DGET 
DNCB 
DOCRET 
DSERH 
DSTOP 
RGET 
DTE™ 
DTS1-1 


JMP I Wiese 


A 


TAD 1 W1ee 


ISZ W128 
JMP IT DGET 
DEEL 


TAR PPA 
TAD PBA 
DTKA 

TAP R1P8 
NCA IT PCAS 
Isz MCOM 
DTKA 

TAD D74@00 


/LOAD STATUS A CCLEAR AND XOR) 


/READ 128 WORDS 
/WOIT IF MOTION IS ON 


SET TQ WRITE 


/WAIT IF MOTION IS ON 


“READ WRITE RETURN 


AFTER SEARCH 
/FIRST 


/CORE LOC 


/UNIT AND FIELD 


/DON'T STOP TRANSPORT AFTER SEARCH 
/GET BLOCK NUMBER : 


/INITIATE SFARCH | 


/PICK UP ARGUEMENTS 


/WRITE 
/READ 
/SET FUNCTION 


ZADRESS OF DATA 

ZPOINT INT TO DATA 

/SEND A READ OR WRITE 

/SFT WORD COUNT FOR 128C16) WORDS 


| 

; 
f 
v 
rs 
2 
t 


FOCALW 
2447 26644 
4450 S676 
£25] S3P? 
4452 6772 
AAS2 TTI 
4454 5351 
4455 PPBS 
4456 SEAS 
LAST F112 
we (47272 
ers 52 45 
WL A46?% A427 
ALAS 7755 
A464 T7954 
ALA65 AAD 
42466 AG3e# 
4467 445] 
4470 AAPA 
4471 HARA 
ALTER AATS 
4473 Gane 
4474 Ahi 2 
4475 ACAD. 
4476 2654 
4477 FRAG 
A5AQG 3271 
AS50) 4371 
A5@2 12°57 
4593 3364 
4594 127° 
4505 3643 
4506 12°47 
4507 3175 
45140 T7201 
4511 1°77 
4512 322° 
4512 1632 
4514 @3R22 
4515 1°74 
4516 6766 
A517 6é774 
45°fi PB2D 
45? ] SABE 
459°? 6772 
4523 TAME 
AUDA TFTITA. 
ASP 5 eSa7 
45P6 6772 


MODS 


A 
NCA I pwe 
JMP I DIS 
JMP DTS3A 
PINT>s DTRB 
SPA CLA 
JMP DER 
ISZ DNCB 
JMP DR127 
NTURNXs TAD Deae 
TAD Dane 
JMP DR127 
DR1IPECs NR1LEE 
DCAA » 7755 
DWC» 7754 
DNCB; a 
DSA > 30 
PCINTs DINT-1 
NOW» 20 
NTFMs g 
DBLK; NTBLK 
DAA » APA 
DA] 4s 614 
PTPLKs A 
hoag=Cong 
NIS; EXIT+6 
NSFRH> G6 
NCA DTEM 
JIMS DWAIT 
TAD DTURNX 
PCA DSTOP 
NTS1> TAD DBLK 
DCA I DCAA 
TAD DCINT 
DCA MCOM 
DTS?2, CLA IAC 
TAD DSERH 
PCA DTEMP 
TAD 1 DTEMP 
AND N7EG0G 
TAD D414 
DTLA 
DTLB | 
ISZ PTEMP 
JMP I DTFMP 
DTS32A»s PATRR 
RTL 
SPA CLA 


JMP DTURNK 
DTRB 


-}fA- 


ZEXIT 


“READ STATUS B 


/ERROR FLAG 

/COUNT BLOCKS 

/CONTINUE OPFRATION 

/COMPLEMENT MOTION AND DIRECTION 


/POINTER TO CURRENT ADDRESS 


/POINTER TO WORD COUNT 


/STORE BLOCK NUMBER > 


ZINTERRUPT RETURN 


/PICK UP UNIT NUMBER 

/SET TO SEARCGHs NORMAL» REVERSE 
/LOAD STATUS A 

/FIELD @ 


/RETURN TO USER 


/LOOK FOR END ZONF 


ZIN END ZONE3$ TURN AROUND 


FOCALE MONS 


4 


ASO] TEIG SPA CLA 

452 5351 JMP DER “FRROR FLAG 

A524 ATA DTRA 

45322 TARA PTIABKs RTL 

2522 THAAG RTL 

AS24 TFOHA DTEHEs TERG /OPERATE 2 CLA 

A535 1275 TAD DTBLK | | 

4536 TH41 CMA TAC 

4537 1°71 TAD DIEM 

2544 7A5L SNA | 

ASA] S267 JMP DTFIND 7ZFOUND BLOCK CHECK DIR 

A542 Th4) CMA TAC 

A543 FAM SNL 

£544 TAR! TAC 

A545 TAPER SNL CLA 

A546 1°72 PTURNs TAP Dane /TURN 1F HERE 

424547 5245 JMP DRIE7 /XOR TO A STATUS AND DISMIS 

ASS@ QGePA4 Debs ea 

455] 6761 DER » DTRA 

455? €350 “AND Deg@a /STOP TAPE & XOR OUT INTERRUPT BIT 

A553 1435 TAD De /DON'T CLEAR ERRORS 

2554 6764 DTXA 

4555 677° DTRB “ERROR STATUS B 

4556 74° 1 MOL /SHOWK IN M@ LIGHTS 

2557 45°86 FRROR? 

2569 7628 ONTFINDs SNL CLA “TEST MOTION 

A561 SPAS JMP DRIE7 /DON'T TURN YET 

A562 164677 TAD I DSERH /GET COMPLETION RETURN 

4563 3°77 DCA DSEREK . 

4564 AGOH DSTOPs 4 /ZEITHER A @ OR TAD DeGOG CSTOP) 

4565 6764 DT XA /CLEAR FLAG 

4566 1229 TAD DUF 

4567 6774 ATLE /SET MEM FIELD. 

4570 5677 JMP I DSERH /EXIT TO COMPLETION RETURN 
DeP=Pe 

4571 AAAH NWAITs @ /WAIT FOR NO MOTION 

4572 6761 DNTRA 

4572 6761 DTRA 

4574 A619 AND Dean 

4575 T7644 SZA CLA 

AST6 S32TP JIMP PwWALT+] | 

4577 S771 JMP I DWAIT ; 
/CHANGFE TO INTERRUPT ROUTINE FOR DECTAPE INTERRUPTS - 
*P 646 

PALA 6771 EXIT» DTSE 

PA647 5e54 JMP et+5 “NOT DECTAPE 


“11- 


Fj 


FOCALW MONS 


PASH 
? 651 
eC ASP 
PAS 
PASS 


&76) 
AAA 
TAAA 
S575 
AP AA 


4 


NTRA 
AND DPTJIR /=@004s CHECKS INTERRUPT EIT. 


SZA CLA 


JMP 1 MCOM /WAS DECTAPF REALLY--GO 


ZAND CONTINUE PROGKAM™ 


SERVICE, 


RMF JRESTORE INTERRUPTED MEMORY FIELDS 


ois th 
ae 


ROCALW MODS 


ae 


/DEFINITIONS FROM FOCAL ITSELF 


PILT7=°6 
PT7TbGB=P 4 
PCK1=2107 
FRROR2@=4526 


AXINE1A 


INTEGER=52 
PUSHA=45028 
PUSKJ=456 1 
POPA=1] 413 
POP J=5502 
FRFUNAT=12@0 
FNTABL=2172 


FNTARF=376 


FVAL=14A3 
P13=5 
FLACHAS 
CDF=6°@01 
RMPS=64P 44 
ERRORS=2725 
ROTTON=2 7 


~- SORTC=4511 


SOP TENS 1° 7 
SORTJ=451¢4 
GETC=450H64 
GLIST=1 406 
TERMS=PhiAP 
MS=67 


“TSTLPR=45°3 


TLIST=1 407 


PROCESS=614 


PC1=620 
PeE=35 


COBH=15 


DDT IUR=4 
CHAR=1 4? 
LINFNOQ=1 43 
SPNCR=452 1] 


-13- 


(C- 8k FOCAL 


ASK !5 "START RLOCK's Bs " UNIT'"s Us ! 


AKA 
av.an LIB READ (Rs0s85U)3 SET SUM=G 
Ak.50 FOR 150543 DO &.93 TYPE ! a _ | 
AE6A T ts F&eB> “AVERAGE = "s SUM/ECT-1)%*CU-1)]9 fs ! 
ae.7G FOR I=A.43 NO &.953 TYPE ! 
Ag.B80 T 13 QUIT a 
AR.90 FOR J=15&$3 S A=FNFWCI+&4+0)3 S SUMESSUM4A3 T Z4e As OO 
A&-95 FOR. J=1.83 S X=FAFWCIL#8+J)3 DO 153 T %4s OUT» " " 
15.92 C THIS GROUP WILL CONVERT THE VARIABLE 'X' TO A FORM 
15-04 C THAT MAY BE USFD TO TYPF OUT ITS VALUE IN OCTAL. 
15-96 C TYPF ‘QUT’ UNDFR Z4-0 TO GET THE OCTAL DIGITS 
15-20 IF €-X) 15625 15-623 SFT X=294k-x Oo Pogue 
15.30 SFT X=X/51293 SFT OUT=A a | : 
15°40 FOR K=0o23 S N#2-K3 S X]=FITROX)$ S OUT=QUT+101N*X13 S X=CX-X1)4& 
15-5A RETURN : | Dh oe oe | 7 
st 
e 
START BLOCK:14 UNIT 21 | 
1021 1991 1920 1919 1@1% 1916 1914 1612 
19809 1006 1992 999 996 992 987 983 
97& 972 967 961 955 949 942 935 
928 9° } 943 SAG &97 e279 881 #4872 
£63 854 gs G35 gOS 815 885 794 
AVFRAGF = 1175-5200 eg 
1775. «17755 «1774-1778 «1772 ~=CO«4177~=—Ss—«i2'THHSC*«d‘CTIN 
1761 1756 17523 1747 «1744 0—«1:740 1733 1727 
1722 1714 1787 1701 1673 1665 1656 1647 
1641 1631 162] 161? 1601 1571 1561 1559 
1537 1526 1514 1503 1471 1457 1445 1432 
+ | 
START RLOCK:11 UNIT 21 | 
A A 1 2 3 5 7 9 
12 15 1€ 20 a5 29 34 36 
AR Ag SA 60 6A 72 719 &6 
93 190 198 115 124 132 140 149 
15€ 167 177 1&6 196 OB6 216 227 
AVFRAGF = 100-719900. 
a O@ 4 2 a 5 7 it 
14 17 O09 26 2] 35 £2 AG 
53 6] 66 TA 192 110 117 126 
125 144 154 163 174 OAL P14 Des 
O26 247 D6) 2702 BRA 316 330 343 


BEGINNING OF DEMONSTRATION PROGRAM 


PUT COSINE WAVE IN DATA RUFFFRs PLOT ITs WRITE IT ON 
DEGTAPFs ZERO THE RUFFER»s PLOT THAT» READ THE DATA 
BACK IN»s AND THEN RE- PLOT IT TQ SHOW THAT IT REALLY 
WAS SAVED. | . 


PUT SCRATCH TAPE ON UNIT 1. WRITE ENABLED 
TYPE "READY" AND A RETURN WHEN READY sREADY 


COSINE IN DATA BUFFFR--SFE PLOT 

COSINF SAVED ON BLOCKS 16-17 (@)» CLEAR DATA BUFFER & PLOT IT 
NOW READ DATA BACK IN» MODIFY & RE-PLOT IT. | 

FND OF DEMONSTRATION yn 


+W : 
C- &K FOCAL 


19-92 C THIS 1S A DEMONSTRATION PROGRAM WHICH USES SOME 
10-04 C OF THF CHANGES TO FOCALK. ee 


11-19 TYPE !> " BEGINNING OF DEMONSTRATION PROGRAM", !5 ! 
11-20 T "PUT COSINE WAVE IN DATA BUFFER» PLOT-IT» WRITE IT ON"S ! 
11-58 T "DFCTAPEs ZERO THE BUFFER» PLOT THAT» READ THE DATA'» ! 
11-70 T "BACK INs AND THEN RE-PLOT IT TO SHOW THAT IT REALLY"S! 
11-98 T “WAS SAVED+"s ee oe ee 


12-10 ASK !s “PUT SCRATCH TAPE ON UNIT 1» WRITE ENABLED"! 
12.38 ASK "TYPE ‘RFEADY' AND A RETURN WHEN READY "s READY> ! 
12.50 IF CRFADY-GRFEADY) 12-65 12-625 12-6 | -= ? a 
12-60 T "YOU MUST USE THE WORD 'READY' !- TRY AGAIN.«"s!3 GOTO 12-3 
12-62 DO 13-83 T “COSINE IN DATA BUFFER--SEE PLOT", ! 

12-64 DO 15-03 LIBRARY WRITE (€102@5851)3 T "COSINE SAVED ON ow 
12-66 T “BLOCKS 10-17 (8)» CLEAR DATA BUFFER & PLOT IT", 

12-68 FOR I1=0.12083 S Z=FNEWCI>&) | 
12-70 DO 153 T "NOW READ DATA BACK IN» MODIFY & RE-PLOT IT.» ! 
12.72 L READ (1@)3 FOR 1=@.19°33 S Zs FNEWCTs FNEWCI) *@ « 5) 

12-75 NO 153 T "FND OF DEMONSTRATION "5 Is! 

12.99 QUIT | 


THIS GROUP FILLS PART OF THE DATA BUFFER WITH A 


13-72 C 

13B-A4 C COSINE WAVE €256 POINTS/CYCLE) WHOSE AVERAGE 
12-A6 C VALUE ITS 5Si1- 

13-1A S A=3-14159/1283 S B=S11 


126A FOR J=2@,1enAs S ZHFNEWC1Ls <FCOSCI4+A) +1>%*B) 
18°30 RETURN 


THIS GROUP PLOTS OUT THR DATA BUFFER FROM 6 TO 1823-6 


15.99 
15-4 LINE 15-1 POSITIONS PEN CORRFCTLY BEFORE PLOTTING. 


C 

C. 
15-86 C NOTE: THIS ROUTINE DOFS NOT SCALE THE DATA!. 
15-14 S W=H=FPUPC1)3 S WebPDISCH.FNEWC@)23 ONC 15-53 S W=FPUPCH) 
15-28 C REMFMREFR THAT FDIS TAKFS ARGS MODULO 2110. | | 
15-20 FOR J=0210233 S WEFDISCISFNEWCID)S | 
15-40 S W=FPUPC1)3 RETURN | | 
15-50 FOR K=1,10@3 S We1@0*10@3s C- THIS LINF ACTS AS A DELAY. 
sf: 


[o22. 


